home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / New Farm Program.cpt / New Farm Program / background_2765.txt < prev    next >
Text File  |  1988-02-06  |  4KB  |  188 lines
  1. -- background: 2765 from stack: in
  2. -- bmap block id: 7778
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   push recent card
  9. end openBackground
  10.  
  11.  
  12. -- part 6 (button)
  13. -- low flags: 00
  14. -- high flags: A004
  15. -- rect: left=328 top=314 right=335 bottom=366
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 0 / 0
  18. -- text alignment: 1
  19. -- font id: 0
  20. -- text size: 12
  21. -- style flags: 0
  22. -- line height: 16
  23. -- part name: Prev
  24. ----- HyperTalk script -----
  25. on mouseUp
  26.   visual effect wipe right
  27.   go to previous card
  28. end mouseUp
  29.  
  30.  
  31.  
  32. -- part 7 (button)
  33. -- low flags: 00
  34. -- high flags: A004
  35. -- rect: left=371 top=314 right=335 bottom=409
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 1
  39. -- font id: 0
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: Next
  44. ----- HyperTalk script -----
  45. on mouseUp
  46.   visual effect wipe left
  47.   go to next card
  48. end mouseUp
  49.  
  50.  
  51.  
  52. -- part 8 (button)
  53. -- low flags: 00
  54. -- high flags: 0000
  55. -- rect: left=40 top=314 right=339 bottom=69
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 21700 / 21700
  58. -- text alignment: 1
  59. -- font id: 0
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: Home
  64. ----- HyperTalk script -----
  65. on mouseUp
  66.   visual effect iris open
  67.   go Home
  68. end mouseUp
  69.  
  70.  
  71.  
  72. -- part 9 (button)
  73. -- low flags: 00
  74. -- high flags: 8004
  75. -- rect: left=413 top=314 right=335 bottom=486
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 0 / 0
  78. -- text alignment: 1
  79. -- font id: 0
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name: Start over
  84. ----- HyperTalk script -----
  85. on mouseUp
  86.   visual effect iris close
  87.   go to card "1st"
  88. end mouseUp
  89.  
  90.  
  91.  
  92. -- part 22 (field)
  93. -- low flags: 00
  94. -- high flags: 0001
  95. -- rect: left=206 top=149 right=259 bottom=264
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 0
  99. -- font id: 3
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: 
  104.  
  105.  
  106. -- part 12 (field)
  107. -- low flags: 01
  108. -- high flags: 4000
  109. -- rect: left=210 top=172 right=189 bottom=259
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 0
  113. -- font id: 3
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: b1
  118. ----- HyperTalk script -----
  119. on mouse up
  120.   set numberFormat to "#.00"
  121.   put field "a1" * field "b1" into field "c1"
  122.   on mouse down
  123.  
  124.  
  125.  
  126. -- part 14 (field)
  127. -- low flags: 01
  128. -- high flags: 4000
  129. -- rect: left=210 top=152 right=169 bottom=259
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 0 / 0
  132. -- text alignment: 0
  133. -- font id: 3
  134. -- text size: 12
  135. -- style flags: 0
  136. -- line height: 16
  137. -- part name: c1
  138.  
  139.  
  140. -- part 15 (field)
  141. -- low flags: 01
  142. -- high flags: 4000
  143. -- rect: left=208 top=208 right=225 bottom=258
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 0 / 0
  146. -- text alignment: 0
  147. -- font id: 3
  148. -- text size: 12
  149. -- style flags: 0
  150. -- line height: 16
  151. -- part name: e1
  152.  
  153.  
  154. -- part 16 (field)
  155. -- low flags: 01
  156. -- high flags: 4000
  157. -- rect: left=208 top=230 right=247 bottom=258
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 0 / 0
  160. -- text alignment: 0
  161. -- font id: 3
  162. -- text size: 12
  163. -- style flags: 0
  164. -- line height: 16
  165. -- part name: f1
  166.  
  167.  
  168. -- part 17 (field)
  169. -- low flags: 00
  170. -- high flags: 4002
  171. -- rect: left=254 top=107 right=123 bottom=310
  172. -- title width / last selected line: 0
  173. -- icon id / first selected line: 0 / 0
  174. -- text alignment: 0
  175. -- font id: 3
  176. -- text size: 12
  177. -- style flags: 0
  178. -- line height: 16
  179. -- part name: a1
  180. ----- HyperTalk script -----
  181. on closefield
  182.   set numberformat to "00.00"
  183.   put line 1 of field "a1" * .2 into field "b1"
  184.   put line 1 of field "a1" - line 1 of field"b1" into field"c1"
  185.   put line 1 of field "a1" * .3 into field "f1"
  186.   put line 1 of field "a1" - line 1 of field"f1" into field"e1"
  187. end closefield
  188.